home *** CD-ROM | disk | FTP | other *** search
- on checkForCD vTestPath
- global gMovieBasePath, gPicName
- case the machineType of
- 256:
- if vTestPath = "CSi_vol1:CSiFiles:IMCD" then
- vTestPath = "CSi_vol1:CSiFiles:Imcd1_al.ias"
- end if
- vTestPathPC = vTestPath
- vDelimiterSave = the itemDelimiter
- the itemDelimiter = ":"
- vTestPathPC = the last item in vTestPath
- the itemDelimiter = vDelimiterSave
- end case
- case the machineType of
- 256:
- Drive = "EMPTY"
- Drive = baFindDrive("d", "IMCD")
- if Drive <> "EMPTY" then
- Drive = Drive & ":\"
- objectFile = new(xtra("fileIO"))
- openFile(objectFile, Drive & vTestPathPC, 1)
- if status(objectFile) = 0 then
- if gPicName = "CSI_V3.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.3" then
- gMovieBasePath = Drive & "content\movie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V4.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.4" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V5.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.5" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V6.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.6" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V7.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.7" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "MT_PI.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi MT Plug-Ins" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSi_ST1.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi ST1" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V8.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.8" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_M1.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "DP4 CSi MASTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_V10.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CSi vol.10" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_M2.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Waves CSi MASTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_S2.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "SONAR 3 CSi STARTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_M3.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Reason CSi MASTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_S3.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "CubaseSX2 CSi STARTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_S04.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Logic CSi STARTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_S05.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "DP4 CSi STARTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_S06.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Reason CSi STARTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_M11.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Live 5 CSi MASTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- if gPicName = "CSI_M04.PCT" then
- vCoreysResult = readFile(objectFile)
- vCoreysResult = line 1 of vCoreysResult
- vSSaveDaDelimiter = the itemDelimiter
- the itemDelimiter = ":"
- if item 1 of vCoreysResult = "Nuendo CSi MASTER" then
- gMovieBasePath = Drive & "content\ie\"
- vResult = 1
- closeFile(objectFile)
- end if
- else
- gMovieBasePath = Drive
- vResult = 1
- closeFile(objectFile)
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- end if
- objectFile = 0
- end if
- if vResult <> 1 then
- the itemDelimiter = ":"
- vCDName = item 1 of vTestPath
- vResult = vCDName
- end if
- return vResult
- otherwise:
- testFile = new(xtra("fileIO"))
- openFile(testFile, vTestPath, 1)
- if status(testFile) = 0 then
- vResult = 1
- else
- if vTestPath = "CSi_vol1:CSiFiles:IMCD" then
- vTestPath = "CSi_vol1:CSiFiles:IMCD1"
- testFile2 = new(xtra("fileIO"))
- openFile(testFile2, vTestPath, 1)
- if status(testFile2) = 0 then
- vResult = 1
- end if
- closeFile(testFile2)
- testFile2 = 0
- end if
- end if
- closeFile(testFile)
- testFile = 0
- if vResult <> 1 then
- the itemDelimiter = ":"
- vCDName = item 1 of vTestPath
- vResult = vCDName
- end if
- return vResult
- end case
- end
-